Option Explicit
Sub Q_Sample004()
    'ާ@Outlook Express
    Dim myLink    As String
    Dim myAddress As String
    Dim mySubject As String
    Dim myCC      As String
    Dim myBCC     As String
    Dim myBody    As String
    Dim myErr    As Long
    myAddress = "aaa@bbb.jp"                                  'oHؼ
    mySubject = "oO"                                    'D
    myCC = "bbbbb@yyy.co.jp" & ";" & "ccccc@yyy.co.jp"          'CC
    myBCC = "ddddd@zzz.co.jp" & ";" & "eeeee@zzz.co.jp"         'BCC
    myBody = "1C" & vbCrLf & vbCrLf                             '
    myBody = myBody & "2C" & vbCrLf
    myBody = myBody & "3C" & vbCrLf
    myBody = myBody & "4C" & vbCrLf & vbCrLf
    myBody = myBody & "5C"
    'vbCrLfܴ %0D%0A (hex)
    myBody = Replace(myBody, vbCrLf, "%0D%0A")
    myLink = "mailto:" & myAddress & _
        "?Subject=" & mySubject & _
        "&body=" & myBody & _
        "&CC=" & myCC & _
        "&BCC=" & myBCC
    myLink = Replace(myLink, "&", "^&")
    Shell "cmd.exe /c start " & myLink
    'ActiveWorkbook.FollowHyperlink _
    Address:=myLink, _
    NewWindow:=True
    Do
        On Error Resume Next
        AppActivate mySubject
        myErr = Err.Number
        On Error GoTo 0
    Loop Until myErr = 0
    Application.Wait Now() + TimeValue("00:00:01")
    SendKeys "%s", True
End Sub
